home *** CD-ROM | disk | FTP | other *** search
/ The Gospels / The Gospels.iso / pc / setup.inf < prev   
Text File  |  1994-11-08  |  2KB  |  53 lines
  1. SetVariable(instructions,    "Click {\b OK} or press {\b Return} to continue. "
  2.     "To quit, click on {\b EXIT} "
  3.     "in the lower right-hand corner of the screen, or press {\b F3}.")
  4.  
  5.  
  6. GetCurPath(Drive)
  7.  
  8. SetVariable(newpath,"C:\GOSPELS\")
  9.  
  10. WindowTitle("Installation of THE GOSPELS")
  11.  
  12. DisplayMessage("This program will install THE GOSPELS",
  13.         <instructions>)
  14.  
  15. PromptPath(newpath,<newpath>,"Where do you want to install THE GOSPELS?",
  16.     "Modify the path by default, if necessary, and click on {\b OK}
  17.     or press {\b Return} to continue.",
  18.     "The usual path is not valid... ")
  19.  
  20. GetSpaceAvailable(space,<newpath>)
  21.  
  22. IfLowerGoto(200000,<space>,continueok)
  23.  
  24. ;; put the routine here if the space is missing....
  25. DisplayMessage("There is not enough space free on the disk to install the program..."
  26.           "(You need at least 200 Kb of memory available on your disk) ",
  27.           "Press {\b ok} or {\b Return} to quit installation..."
  28.           "Free the space and start again")
  29.  
  30. continueok:
  31. MakePath(<newpath>)
  32.  
  33. OpenCopyProgress("Installation in progress...",
  34.         "Thanks for your patience...")
  35.  
  36. IfFileExistsGoto(<newpath> "fellini.exe",noncopiarerosexe)
  37. CopyFile("vangeli\vangeli.exe",<newpath> "vangeli.exe",200000)
  38.  
  39. noncopiarerosexe:
  40. TranslateFile("vangeli\pathcd",<newpath> "pathcd",100,"Drive",<Drive>)
  41.  
  42. CloseCopyProgress()
  43.  
  44. OpenProgmanProgress("The installation program is adding a new Program Manager Group",
  45.         "Thanks for your patience...")
  46.  
  47. OpenProgmanGroup("Multimedia from E.M.M.E.")
  48.  
  49. AddProgmanItem("The Gospels",<newpath> "vangeli.exe",<newpath> "vangeli.exe",0)
  50.  
  51. CloseProgmanProgress()
  52.  
  53.